home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / 3dlib30a.zip / HDR3D.INT < prev    next >
Text File  |  1994-03-10  |  2KB  |  67 lines

  1. (******************************************************************************
  2. *                                    hdr3d                                    *
  3. * This unit includes the headers needed for 3D manipulation ..                *
  4. ******************************************************************************)
  5. unit hdr3d;
  6.  
  7. interface
  8.  
  9. const
  10.    version3dLib = '3.0';
  11.  
  12. const
  13.     MaxPoints  = 20;
  14.     MaxLines   = 50;
  15.     maxObjects = 9; {size of object table}
  16.     maxNest    = 10; {size of loop table of interpreter}
  17.  
  18. const ScreenWidth = 1000;
  19.       HalfWidth   = screenWidth / 2;
  20.  
  21.       radFactor = 180 / 3.1415926535897932385;
  22.  
  23. type
  24.     line3dPtr = ^ line3d;
  25.     Line3d  = record
  26.        FromP, ToP  : integer;
  27.     end;
  28.  
  29.     screenPointsPtr = ^ screenPoints;
  30.     screenPoints = record
  31.        sX,sY : integer;
  32.     end;
  33.  
  34.     axisType = (x,y,z);
  35.  
  36. type
  37.     point3dPtr = ^ point3d;
  38.     point3d = record
  39.        x, y, z     : real;
  40.     end;
  41.  
  42. const
  43.        zeroPoint : point3d = (x:0.0; y:0.0; z:0.0);
  44.        xAxis : integer = 45;
  45.        yAxis : integer = 45;
  46.  
  47. var
  48. {$ifdef windows}
  49.        MaxX, MaxY : word;          { In pixels for graphics screen }
  50.        MaxColor   : word;
  51. {$endif}
  52. {$ifdef os2}
  53.        MaxX, MaxY : longint;          { In pixels for graphics screen }
  54.        MaxColor   : longint;
  55. {$endif}
  56.        cosine_x,cosine_y,sine_x,sine_y : Real;
  57.        currentPath : string[32];
  58. const
  59.        currentAxis : axisType = x;
  60.  
  61.  
  62. Procedure CalcAxisDeg;
  63. procedure setDefaultSuffix(var Fname : string; suffix : string);
  64.  
  65. implementation
  66. end.
  67.